home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
rastms34.zip
/
DEMO2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-27
|
2KB
|
53 lines
(* ************************************************************ *)
(* Demo2.pas For Turbo Pascal *)
(* *)
(* Rcar was created by saving the image as TP Constant *)
(* from Raster Master. *)
(* ************************************************************ *)
Program Demo2;
Uses Crt,Graph;
Const
(* Turbo Pascal, Width= 28 Height= 16 Colors= 16 *)
Rcar : Array[1..262] of Byte = (
$1B,$00,$0F,$00,$00,$00,$00,$00,$00,$3C,$00,$00,
$00,$00,$00,$00,$FF,$C3,$FF,$FF,$00,$3F,$00,$00,
$00,$7F,$00,$00,$00,$00,$00,$00,$FF,$80,$FF,$FF,
$00,$40,$00,$00,$60,$C1,$80,$00,$00,$01,$80,$00,
$9F,$01,$FF,$FF,$00,$80,$00,$00,$71,$80,$C0,$00,
$00,$00,$C0,$00,$8E,$00,$FF,$FF,$01,$00,$00,$00,
$1B,$80,$60,$00,$00,$00,$60,$00,$E4,$00,$7F,$FF,
$01,$80,$00,$00,$1F,$C0,$30,$00,$00,$00,$30,$00,
$E0,$00,$3F,$FF,$1C,$00,$00,$00,$3F,$FF,$FF,$00,
$00,$00,$00,$00,$C0,$00,$00,$FF,$3F,$8F,$EF,$00,
$7F,$FF,$FF,$C0,$00,$10,$00,$00,$80,$10,$00,$3F,
$71,$DF,$F0,$80,$FF,$FF,$FF,$E0,$00,$00,$00,$40,
$00,$00,$00,$5F,$60,$DF,$F0,$00,$F1,$FF,$F8,$F0,
$80,$00,$00,$60,$80,$00,$00,$6F,$40,$5F,$E0,$00,
$E0,$FF,$F0,$70,$80,$00,$00,$20,$80,$00,$00,$2F,
$04,$1F,$C2,$00,$C4,$7F,$E2,$30,$04,$00,$02,$00,
$04,$00,$02,$0F,$0E,$00,$07,$00,$CA,$7F,$E5,$30,
$0A,$00,$05,$00,$0A,$00,$05,$0F,$04,$00,$02,$00,
$04,$00,$02,$00,$04,$00,$02,$00,$C4,$7F,$E2,$3F,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
$E0,$FF,$F0,$7F,$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$F1,$FF,$F8,$FF,$00,$00);
Var
Gd, Gm : Integer;
Img : Pointer;
Begin
Gd:=VGA;
Gm:=VGALo;
InitGraph(Gd,Gm,'');
SetFillStyle(SolidFill,Blue);
Bar(0,0,GetMaxX,GetMaxY);
Img:=@Rcar;
PutImage(0,0,Img^,NormalPut);
Repeat Until KeyPressed;
CloseGraph;
end.